home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 10.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  180b  |  6 lines
  1. 20000 rem leere saetze aus einer datei eliminieren -----------------------------
  2. 20020 i=0: rem zaehler auf null
  3. 20030 i=i+1:ifi=szthenreturn
  4. 20040 :ifd$(i)=""thend$(i)=d$(sz):sz=sz-1:goto40
  5. 20050 goto20030
  6.